vb解密码小程序
vb 解密码小程序 -
hwnd = FindWindow(vbNullString, "HJonny")'寻找名为HJonny的窗体标题,这里就比如你的第一个密码程序。t = FindWindowEx(hwnd, 0, "ThunderRT6TextBox", vbNullString)'这个是寻找其中的一个文本框,也就是迷得密码框的句柄,保存在t中SendMessage t, 13, 100, s'sendmassage取t句柄,也等会说。
首先启动vb6.0,执行文件-新建命令,弹出新建工程对话框,在该对话框中选择标准的exe后点击打开按钮,进入vb程序主界面。在主界面中,按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽,调节窗体的大小,直至自己满意为止。
hwnd = FindWindow(vbNullString, "HJonny")'寻找名为HJonny的窗体标题,这里就比如你的第一个密码程序。t = FindWindowEx(hwnd, 0, "ThunderRT6TextBox", vbNullString)'这个是寻找其中的一个文本框,也就是迷得密码框的句柄,保存在t中SendMessage t, 13, 100, s'sendmassage取t句柄,也等会说。
首先启动vb6.0,执行文件-新建命令,弹出新建工程对话框,在该对话框中选择标准的exe后点击打开按钮,进入vb程序主界面。在主界面中,按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽,调节窗体的大小,直至自己满意为止。
以下是根据学号末2位加密、解密的VB程序:Private Sub Form_Click()x = Val(Right(Text1.Text, 2)) '取学号末2位'以下是加密s = Text2.Text s1 = s For i = 1 To Len(s)c = Mid(s1, i, 1)Mid(s1, i, 1) = Chr(Asc(c) Xor x)Next i Text3.Text = s1 '以下是后面会介绍。
Dim s As String Private Sub Command1_Click()s = InputBox("请输入一个英文字符串:")For i = 1 To Len(s)c = Mid(s, i, 1)Mid(s, i, 1) = Chr(Asc(c) - 3)Next i MsgBox ("加密后的字符串是:" & vbCrLf & s)End Sub Private Sub Command2_Click()For i = 1 To 等会说。
求编写一个vb小程序 -
添加一1个label,一个command,一个text即可,可循环修改密码Dim a As StringPrivate Sub Command1_Click()If Command1.Caption = "确认" Then If Text1 = a Then Call nex Else MsgBox "密码错误!quot;, vbExclamation, "信息" Text1 = "" Text1.SetFocus End IfElseIf 希望你能满意。
MsgBox "请输入密码!", vbOKOnly, "提示"inputok = False Text2.SetFocus End If End If If Not inputok Then Exit Sub End If Call openconn rs.Open "select * from admin where aid='" & Text1.Text & "'", conn If rs.EOF Then MsgBox "系统中没有帐号为“quot; & Text1.Text &希望你能满意。
vb猜密码小程序中怎么把输入的密码显示为“*” -
不 在text属性中有一个passwordchar 把他调成" * " 这个是专门为密码所设置的属性窗体没有这个属性,
10010 他的意思是程序运行当n为零时退出循环。每次循环a就取n除以2的余数也就是偶时取零奇时取1 n就减半后取整把第次循环得到的字符其ACII值为48+a 的字符累加到一起,
求一个VB小程序... -
我也给你写了一个,运行后会在右下角有个小图标,具体看我给你的邮件介绍。
新建一个文本框Text1,Text属性为空,MultiLine属性为True,ScrollBars属性为2。新建一个命令按钮Command1,添加以下代码:Private Sub Command1_Click()Dim i As Integer For i = 1 To 100 If (i Mod 5 = 0)And (i Mod 3 <> 0)Then Text1.Text = Text1.Text & vbCrLf & i Next End 等我继续说。